#!/usr/bin/perl -w
use  strict;
use Net::OpenSSH;

my $ssh = Net::OpenSSH->new('root@172.10.10.251');

$ssh->error and die "Can't ssh to 172.10.10.251: ".$ssh->error;

$ssh->system("ls /tmp");
